home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2posx10.zoo / m2posix.10 / test / showids.mpp < prev    next >
Encoding:
Text File  |  1993-06-05  |  1.0 KB  |  31 lines
  1. MODULE ShowIDs;
  2. __IMP_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. (* 31-Mai-93, hk *)
  13. VAL_INTRINSIC
  14.  
  15. FROM proc  IMPORT getpid, getppid, getpgrp, getuid, geteuid, getgid, getegid;
  16. FROM InOut IMPORT WriteInt, WriteString, WriteLn, Read;
  17.  
  18. VAR ch : CHAR;
  19.  
  20. BEGIN
  21.  WriteString(" parent process id: "); WriteInt(INT(getppid()), 0); WriteLn;
  22.  WriteString("    own process id: "); WriteInt(INT(getpid()), 0); WriteLn;
  23.  WriteString("  process group id: "); WriteInt(INT(getpgrp()), 0); WriteLn;
  24.  WriteString("      real user id: "); WriteInt(INT(getuid()), 0); WriteLn;
  25.  WriteString("     real group id: "); WriteInt(INT(getgid()), 0); WriteLn;
  26.  WriteString(" effective user id: "); WriteInt(INT(geteuid()), 0); WriteLn;
  27.  WriteString("effective group id: "); WriteInt(INT(getegid()), 0); WriteLn;
  28.  
  29.  Read(ch);
  30. END ShowIDs.
  31.